home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side B).zip / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side B).po / PROGRAMS / MOIRE.bas < prev    next >
BASIC Source File  |  1996-12-24  |  950b  |  34 lines
  1. 100  REM  MOIRE PROGRAM
  2. 110  ONERR  GOTO 370
  3. 130  HOME : VTAB 24
  4. 140  HGR : REM  SET HI-RESOLUTION GRAPHICS
  5. 150 A =  RND(1) *279
  6. 160 B =  RND(1) *159
  7. 170 N =  INT( RND(1) *7) +2
  8. 180  PRINT : PRINT : PRINT 
  9. 190  HTAB 10: PRINT "MOIRE PICTURE"
  10. 200  FOR X = 0 TO 278  STEP N
  11. 210  IF  PEEK(49152) >127  THEN  GOTO 400
  12. 220  FOR S = 0 TO 1
  13. 230  HCOLOR= 7 *S
  14. 240  REM  DRAW LINE THRU "CENTER" TO OPPOSITE SIDE
  15. 250  HPLOT X +S,0 TO A,B TO 279 -X -S,159
  16. 260  NEXT S,X
  17. 270  FOR Y = 0 TO 158  STEP N
  18. 280  FOR S = 0 TO 1
  19. 290  HCOLOR= 7 *S
  20. 300  REM  SAME AS 240
  21. 310  HPLOT 279,Y +S TO A,B TO 0,159 -Y -S
  22. 320  NEXT S,Y
  23. 330  FOR PAUSE = 1 TO 300: REM  DELAY LOOP
  24. 340  IF  PEEK(49152) >127  THEN  GOTO 400
  25. 350  NEXT PAUSE
  26. 360  GOTO 140: REM  DRAW A NEW PATTERN
  27. 370  REM 
  28. 380  REM  EXIT ROUTINE
  29. 390  REM 
  30. 400  POKE 49168,0: REM  CLEAR KEY CHECK
  31. 410  PRINT : PRINT "MOIRE": PRINT "DEMONSTRATION FINISHED"
  32. 420  PRINT "PRESS 'RETURN' TO EXIT";
  33. 430  INPUT "";A$
  34. 460  END